home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side4.d64 / u.what goes up (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  2KB  |  50 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]   [196]own [196]own [196]own [201][201] ([215]hat [199]oes [213]p)"
  3. 30 print"[212]his program will modify your copy"
  4. 40 print"of '[215]hat [199]oes [213]p' to give you [213][206][204][201][205][201][212][197][196]"
  5. 50 print"[197][214][197][210][217][212][200][201][206][199].  ([195])onvert will give"
  6. 60 print"you [213]nlimited [204]ives, [212]ime, [210]ockets,"
  7. 65 print"[198]lashlights, [194]ombs, [211]hields, [211]panners."
  8. 70 print"([210])estore will return it to [206]ormal."
  9. 80 print"[201]t's best to use a [195][207][208][217] rather than"
  10. 90 print"using your original [204][207][193][196][211][212][193][210] disk!"
  11. 100 print"[205]ake sure that the [215]rite-[208]rotect tab"
  12. 110 print"is not covered on the disk!"
  13. 130 print"[212]o make these changes, [201]nsert [204]oadstar"
  14. 140 print"[201]ssue #82 [211]ide 3 into [196]rive #8, then"
  15. 150 print"[211]elect ([195])onvert [207]r ([210])estore."
  16. 152 print"[193]fter selecting, [196]o [206][207][212] touch the"
  17. 154 print"keyboard or open the disk drive door"
  18. 156 print"until the [195]ursor appears!!!!!!"
  19. 157 print"       [211]elect ([195]) [207]r ([210]) [206]ow"
  20. 160 geta$:ifa$=""then160
  21. 165 ifa$="c"then180
  22. 170 ifa$="r"then400
  23. 175 goto160
  24. 180 q$=chr$(34):f$="what goes up"
  25. 190 print"[147]load"q$f$q$",8"
  26. 200 print"570 k=.:tn=tn-n:iftn<nthentn=tu:tm=tm-0:gosub790:iftm<nthen2830"
  27. 210 print"2930 mb=mb-0"
  28. 220 print"990i(.)=i(.)-0:?"q$""q$"t[193]33)i(.)"q$""q$
  29. 225 print"1140 i(n)=i(n)-0:?"q$""q$"t[193]33)i(1)"q$""q$
  30. 230 print"1170 i(2)=i(2)-0:?"q$""q$"t[193]33)i(2)"q$""q$":p[207]v+40,10:s[217]z2,129
  31. 235 [153]"1290 i(3)=i(3)-0:?"q$""q$"tatn33)i(3)"q$""q$":re(NULL)"
  32. 240 [153]"1330 i(4)=i(4)-0:?"q$""q$"tatn33)i(4)"q$""q$":re(NULL)"
  33. 250 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  34. 270 [153]""
  35. 280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  36. 290 [162]:[128]
  37. 400 q$[178][199](34):f$[178]"what goes up"
  38. 410 [153]"loadload"q$f$q$",8"
  39. 420 [153]"570 k=.:tn=tn-n:iftn<nthentn=tu:tm=tm-n:gosub790:iftm<nthen2830"
  40. 430 [153]"2930 mb=mb-1"
  41. 440 [153]"990i(.)=i(.)-1:?"q$""q$"tatn33)i(.)"q$""q$
  42. 450 [153]"1140 i(n)=i(n)-n:?"q$""q$"tatn33)i(1)"q$""q$
  43. 460 [153]"1170 i(2)=i(2)-1:?"q$""q$"tatn33)i(2)"q$""q$":p(NULL)v+40,10:s(NULL)z2,129
  44. 470 print"1290 i(3)=i(3)-1:?"q$""q$"t[193]33)i(3)"q$""q$":re[212]"
  45. 480 print"1330 i(4)=i(4)-1:?"q$""q$"t[193]33)i(4)"q$""q$":re[212]"
  46. 490 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  47. 500 print""
  48. 510 fori=631to640:pokei,13:next:poke198,10
  49. 520 new:end
  50.